home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / edit / me_cd25.zip / MUTT2.ZIP / UNIX.MUT < prev    next >
Lisp/Scheme  |  1992-11-09  |  614b  |  27 lines
  1. ;; Unix stuff that goes in osstuff.mco
  2. ;; C Durland    Public Domain
  3.  
  4. (defun chmod
  5. {
  6.   (string mod)
  7.  
  8.   (mod (ask "chmod " (file-name -1) " to: "))
  9.   (shell-command (concat "chmod "  mod " " (file-name -1)))
  10. })
  11.  
  12. (defun MAIN
  13. {
  14.       ; set up the soft keys if the terminal type is known
  15.   (switch (getenv "TERM")
  16.     "xterm"  (load "xterm")
  17.     "vt100"  (load "xterm")
  18.     "2622"   (load "hpterm")
  19.     "98547"  (load "hpterm")        ;; TopCat
  20.     "98550"  (load "hpterm")        ;; CatsEye
  21.     default    ;; try some guessing games
  22.     {
  23.       (if (re-string 'hp' (getenv "TERM")) (load "hpterm"))
  24.     }
  25.   )
  26. })
  27.